home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 103 / XENIATGM103.iso / Shareware / GoLive 5.0 / MM5.Cab / F447_ui5.asp.3A7A5E73_1F50_4F88_AB38_531BFA72E747 < prev    next >
Text File  |  2000-08-17  |  733b  |  34 lines
  1. <%
  2.  
  3. '
  4. ' Support for Customizable UI for DynamicLink
  5. '
  6. ' COPYRIGHT (c) 2000 Adobe Systems Incorporated. All rights reserved.
  7. '
  8.  
  9. Response.Buffer = False
  10. Response.ContentType = "text/xml"
  11.  
  12. set fso = CreateObject("Scripting.FileSystemObject")
  13.  
  14. thisFilename = Request.ServerVariables("PATH_TRANSLATED")
  15. foldername = fso.GetParentFolderName(thisFilename)
  16.  
  17. set infoFolder = fso.GetFolder(foldername)
  18.  
  19. Response.Write "<ui5>"
  20. for each file in infoFolder.Files
  21.     if Right(file.Name, 8) = ".ui5.xml" then
  22.         Response.Write "<!-- " & file.Name & " -->" & vbNewLine
  23.  
  24.         set stream = fso.OpenTextFile(file.Path, 1)
  25.         Response.Write stream.ReadAll
  26.  
  27.         Response.Write vbNewLine
  28.     end if
  29. next
  30.  
  31. Response.Write "</ui5>"
  32.  
  33. %>
  34.